(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 11.3' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     35484,        734]
NotebookOptionsPosition[     33360,        701]
NotebookOutlinePosition[     33717,        717]
CellTagsIndexPosition[     33674,        714]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "+", 
        FractionBox["1", "n"]}], ")"}], "n"], ",", 
     RowBox[{"Evaluate", "[", 
      RowBox[{
       UnderscriptBox["\[Limit]", 
        RowBox[{"n", "\[Rule]", "\[Infinity]"}]], 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "+", 
          FractionBox["1", "n"]}], ")"}], "n"]}], "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"n", ",", "0", ",", "100"}], "}"}], ",", 
   RowBox[{"PlotLegends", "\[Rule]", "\"\<Expressions\>\""}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.7667566485720186`*^9, 3.766756757810211*^9}, {
   3.7667568132590733`*^9, 3.766756838888166*^9}, {3.7667569312117805`*^9, 
   3.7667570159984493`*^9}, {3.766757117221463*^9, 3.766757128088085*^9}, 
   3.766758573178892*^9, {3.7667603929272723`*^9, 3.7667604702079415`*^9}, {
   3.7667605603556595`*^9, 3.766760584329811*^9}, 3.7668130786694155`*^9, {
   3.766815501574398*^9, 3.766815532296005*^9}, {3.766817660381499*^9, 
   3.766817662840219*^9}, {3.7668179804104204`*^9, 3.766817983409048*^9}, 
   3.766818061237193*^9, 3.7668181447236633`*^9, {3.7668185030920353`*^9, 
   3.7668185122871304`*^9}, {3.7668185700364666`*^9, 3.766818572585109*^9}, 
   3.766823294850641*^9, {3.7668259726088505`*^9, 3.7668259854290433`*^9}, {
   3.7668260391688757`*^9, 3.7668260404288692`*^9}, {3.7668261513188405`*^9, 
   3.766826348108794*^9}, {3.7668263880187845`*^9, 3.766826402008768*^9}, {
   3.7668265041687574`*^9, 3.7668265530187445`*^9}, 3.76682665602872*^9, 
   3.766827803863099*^9, 3.7668318341777396`*^9, 3.7668462493641663`*^9, {
   3.7668853036852636`*^9, 3.7668853137762856`*^9}, 3.766909784020003*^9, 
   3.766913058916376*^9, {3.7669159728317127`*^9, 3.766915978810771*^9}, {
   3.766916153329794*^9, 3.766916228007567*^9}, {3.766916470570263*^9, 
   3.76691647199592*^9}, 3.7669193176534815`*^9, 3.766919591539255*^9, {
   3.7669586031414957`*^9, 3.766958605630169*^9}, {3.7670878558605747`*^9, 
   3.7670878561507244`*^9}, 3.76708790043675*^9, {3.7925325574511733`*^9, 
   3.7925325856684976`*^9}, {3.7925333915372972`*^9, 3.792533396005659*^9}},
 FontSize->14,
 CellLabel->"In[1]:=",ExpressionUUID->"9d3a28f8-1b97-46eb-a649-bba28d6cfa7b"],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"n", " ", 
      RowBox[{"Log", "[", "n", "]"}]}], ",", 
     RowBox[{"Evaluate", "[", 
      RowBox[{
       UnderscriptBox["\[Limit]", 
        RowBox[{"n", "\[Rule]", "0"}]], 
       RowBox[{"n", " ", 
        RowBox[{"Log", "[", "n", "]"}]}]}], "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"n", ",", "0", ",", "10"}], "}"}], ",", 
   RowBox[{"PlotLegends", "\[Rule]", "\"\<Expressions\>\""}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.792532591660632*^9, 3.7925326885116625`*^9}, {
  3.792532828342105*^9, 3.7925328700761433`*^9}, {3.792532902063095*^9, 
  3.792532902389267*^9}, {3.7925333603199716`*^9, 3.792533396014634*^9}},
 CellLabel->"In[11]:=",ExpressionUUID->"7c26c8e4-7440-44fb-8732-3d03f5b89aca"],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     SuperscriptBox["n", 
      RowBox[{"1", "/", "n"}]], ",", 
     RowBox[{"Evaluate", "[", 
      RowBox[{
       UnderscriptBox["\[Limit]", 
        RowBox[{"n", "\[Rule]", "\[Infinity]"}]], 
       SuperscriptBox["n", 
        RowBox[{"1", "/", "n"}]]}], "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"n", ",", "0", ",", "1000"}], "}"}], ",", 
   RowBox[{"PlotLegends", "\[Rule]", "\"\<Expressions\>\""}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.7667556976393075`*^9, 3.7667557466317883`*^9}, {
   3.766755850824359*^9, 3.7667560089341245`*^9}, {3.766756157311813*^9, 
   3.766756196170289*^9}, {3.766756265567749*^9, 3.7667563113579607`*^9}, {
   3.7667565592299595`*^9, 3.766756609712821*^9}, {3.7667568471098213`*^9, 
   3.7667569165597377`*^9}, {3.7667570971987147`*^9, 
   3.7667571082983413`*^9}, {3.766758239639708*^9, 3.766758278850498*^9}, 
   3.766758573147829*^9, {3.766760482824461*^9, 3.766760510634726*^9}, {
   3.7667605567630153`*^9, 3.7667605842580023`*^9}, 3.766813078495582*^9, {
   3.7668153858629313`*^9, 3.7668153877196465`*^9}, {3.7668154688665466`*^9, 
   3.766815520440176*^9}, {3.7668176456394157`*^9, 3.7668176504867864`*^9}, {
   3.7668180137525415`*^9, 3.766818014012686*^9}, 3.7668180611772118`*^9, 
   3.766818144623719*^9, {3.766818628115411*^9, 3.766818629944474*^9}, 
   3.766823295660327*^9, {3.7668263795787907`*^9, 3.7668264622387285`*^9}, {
   3.766826560658743*^9, 3.766826569338711*^9}, {3.766826610368695*^9, 
   3.7668266451986914`*^9}, 3.766827803963102*^9, 3.7668318344977007`*^9, 
   3.766846249434213*^9, {3.7668853037021775`*^9, 3.766885313785262*^9}, 
   3.766909784030018*^9, 3.7669130589263697`*^9, {3.7669159728427334`*^9, 
   3.766915978821742*^9}, {3.766916189189455*^9, 3.766916239099145*^9}, 
   3.766916274377571*^9, {3.7669164705802402`*^9, 3.7669164720119095`*^9}, 
   3.766919317666483*^9, 3.766919591556245*^9, {3.7669586031514893`*^9, 
   3.7669586056401663`*^9}, {3.7670878576396275`*^9, 3.767087858309263*^9}, 
   3.76708790043675*^9, {3.7925333915622687`*^9, 3.7925333960256567`*^9}},
 FontSize->14,ExpressionUUID->"77c851dc-4457-4cc7-bb20-3a01adbfeead"],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     FractionBox[
      RowBox[{"Sin", "[", "x", "]"}], "x"], ",", 
     RowBox[{"Evaluate", "[", 
      RowBox[{
       UnderscriptBox["\[Limit]", 
        RowBox[{"x", "\[Rule]", "0"}]], 
       FractionBox[
        RowBox[{"Sin", "[", "x", "]"}], "x"]}], "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{
      RowBox[{"-", "4"}], " ", "\[Pi]"}], ",", 
     RowBox[{"4", " ", "\[Pi]"}]}], "}"}], ",", 
   RowBox[{"PlotLegends", "\[Rule]", "\"\<Expressions\>\""}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.7667565376949453`*^9, 3.766756539152522*^9}, {
   3.7667568945990305`*^9, 3.7667569034167304`*^9}, {3.766757200073058*^9, 
   3.7667573158963757`*^9}, 3.766758573076022*^9, {3.766758978136419*^9, 
   3.7667589803617315`*^9}, {3.7667592019349017`*^9, 
   3.7667592032359285`*^9}, {3.7667605310756655`*^9, 3.7667605841862*^9}, 
   3.7668130780132627`*^9, {3.7668151493772573`*^9, 3.7668151624543114`*^9}, {
   3.766815198732128*^9, 3.7668151991309385`*^9}, {3.766815261953661*^9, 
   3.7668152681658225`*^9}, {3.7668176278737087`*^9, 3.766817630966691*^9}, {
   3.766818009414854*^9, 3.76681800978469*^9}, 3.766818061097253*^9, 
   3.7668181444837914`*^9, {3.7668186655953665`*^9, 3.766818667244485*^9}, 
   3.766823295740326*^9, 3.766827804013089*^9, 3.7668318345477357`*^9, 
   3.766846249524166*^9, {3.76688530371614*^9, 3.7668853137962337`*^9}, 
   3.7669097840400066`*^9, 3.766913058936365*^9, {3.7669159728506613`*^9, 
   3.7669159788357515`*^9}, 3.7669162408215055`*^9, 3.766916276273577*^9, {
   3.766916470592174*^9, 3.766916472022884*^9}, 3.766919317678419*^9, 
   3.7669195915741634`*^9, {3.766958603161485*^9, 3.7669586056501584`*^9}, {
   3.7670878598584375`*^9, 3.767087860468108*^9}, 3.7670879004567385`*^9, {
   3.7925333915742493`*^9, 3.7925333960355787`*^9}},
 FontSize->14,ExpressionUUID->"7bb1964a-ea36-4190-9c9c-66631e0a8553"],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x", " ", 
      RowBox[{"Sin", "[", 
       FractionBox["1", "x"], "]"}]}], ",", "x", ",", 
     RowBox[{"-", "x"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "0.1"}], ",", "0.1"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "0.1"}], ",", 
   RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
   RowBox[{"Filling", "\[Rule]", "Axis"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7667565376949453`*^9, 3.766756539152522*^9}, {
   3.7667568945990305`*^9, 3.7667569034167304`*^9}, {3.766757200073058*^9, 
   3.766757202186139*^9}, 3.766758572634516*^9, {3.766760570673052*^9, 
   3.7667605840545526`*^9}, 3.766813077414484*^9, {3.766815205787041*^9, 
   3.766815217486768*^9}, {3.7668175915131493`*^9, 3.766817610183211*^9}, {
   3.7668180045175424`*^9, 3.7668180048772945`*^9}, 3.766818060497569*^9, 
   3.7668181443038898`*^9, {3.7668187044046164`*^9, 3.7668187067233753`*^9}, 
   3.766823295830327*^9, {3.766824426080926*^9, 3.7668244419308977`*^9}, {
   3.76682448167089*^9, 3.7668244824508924`*^9}, {3.766826697568711*^9, 
   3.7668267133987007`*^9}, {3.766826765097835*^9, 3.766826772147845*^9}, 
   3.7668278040830927`*^9, {3.766829873467885*^9, 3.76682991363789*^9}, {
   3.7668302099828625`*^9, 3.7668302114928102`*^9}, 3.7668318346076994`*^9, 
   3.7668462495941963`*^9, {3.766885303726115*^9, 3.766885313806245*^9}, 
   3.766909784049954*^9, 3.766913058936365*^9, {3.766915972860669*^9, 
   3.7669159788447266`*^9}, 3.7669162418009653`*^9, 3.766916277458959*^9, {
   3.7669164706031904`*^9, 3.766916472033856*^9}, 3.7669193176894193`*^9, 
   3.766919591591118*^9, {3.7669585910279417`*^9, 3.7669586056701574`*^9}, {
   3.7670878625070233`*^9, 3.7670878627369013`*^9}, 3.767087900466733*^9, {
   3.7925333915832243`*^9, 3.7925333960485487`*^9}},
 FontSize->14,ExpressionUUID->"4ab6b38b-81c7-4dfe-ae4c-2a1d31da7929"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"t", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{"f", "[", "x", "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", 
         RowBox[{
          RowBox[{"-", "2"}], " ", "\[Pi]"}], ",", 
         RowBox[{"2", " ", "\[Pi]"}]}], "}"}], ",", 
       RowBox[{"PlotRange", "\[Rule]", 
        RowBox[{"2", " ", "\[Pi]"}]}], ",", 
       RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
       RowBox[{"ExclusionsStyle", "\[Rule]", "Dashed"}], ",", 
       RowBox[{"PlotLabel", "\[Rule]", "f"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"f", ",", 
       RowBox[{"{", 
        RowBox[{
        "Sin", ",", "Cos", ",", "Tan", ",", "Cot", ",", "Sec", ",", "Csc"}], 
        "}"}]}], "}"}]}], "]"}]}], ";"}], "\n", 
 RowBox[{"GraphicsGrid", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"t", "\[LeftDoubleBracket]", 
      RowBox[{"{", 
       RowBox[{"1", ",", "3", ",", "5"}], "}"}], "\[RightDoubleBracket]"}], 
     ",", 
     RowBox[{"t", "\[LeftDoubleBracket]", 
      RowBox[{"{", 
       RowBox[{"2", ",", "4", ",", "6"}], "}"}], "\[RightDoubleBracket]"}]}], 
    "}"}], ",", 
   RowBox[{"ImageSize", "\[Rule]", "Large"}]}], "]"}]}], "Input",
 CellChangeTimes->{
  3.7667584241663823`*^9, {3.7667585378150682`*^9, 3.766758538800959*^9}, 
   3.766758573358445*^9, {3.766758845754654*^9, 3.766758855937039*^9}, {
   3.7667593808487425`*^9, 3.766759402401495*^9}, {3.7667605711099343`*^9, 
   3.766760584476551*^9}, {3.766810921765523*^9, 3.7668109301997023`*^9}, 
   3.76681308080469*^9, {3.7668177606578703`*^9, 3.7668177619372363`*^9}, 
   3.76681806129716*^9, 3.7668181448036222`*^9, {3.766818730260788*^9, 
   3.7668187324895988`*^9}, 3.766823295960327*^9, {3.7668236957551146`*^9, 
   3.766823742185361*^9}, {3.766823995725946*^9, 3.7668240009159355`*^9}, {
   3.7668241201258802`*^9, 3.766824128145878*^9}, {3.766824294100941*^9, 
   3.7668242971409416`*^9}, {3.7668260052488785`*^9, 
   3.7668260452388673`*^9}, {3.7668260915988655`*^9, 3.766826105798848*^9}, {
   3.7668268720078135`*^9, 3.7668268738677845`*^9}, 3.7668278042130575`*^9, 
   3.7668318347477503`*^9, 3.7668462497441893`*^9, {3.7668853037360864`*^9, 
   3.7668853138172164`*^9}, {3.766885362283271*^9, 3.766885387266635*^9}, 
   3.766909784059949*^9, 3.766913058946411*^9, {3.766915972870609*^9, 
   3.7669159788586845`*^9}, 3.766916243462168*^9, 3.7669162786181374`*^9, {
   3.7669164706141586`*^9, 3.7669164720448265`*^9}, {3.7669190596222334`*^9, 
   3.7669190600370827`*^9}, {3.766919212690318*^9, 3.7669192490426726`*^9}, 
   3.766919317703396*^9, 3.766919591609123*^9, {3.7669586031714764`*^9, 
   3.7669586056801434`*^9}, {3.766984634667746*^9, 3.7669846430078545`*^9}, {
   3.766984796617592*^9, 3.7669848707575464`*^9}, {3.766984929517459*^9, 
   3.76698528991706*^9}, {3.766985337757043*^9, 3.7669853978169794`*^9}, {
   3.7669854836968913`*^9, 3.766985500916873*^9}, {3.7669855522068105`*^9, 
   3.76698555752677*^9}, 3.767087900476728*^9, {3.792533391961157*^9, 
   3.7925333960595646`*^9}},
 FontSize->14,ExpressionUUID->"2e0561fe-3a8c-417a-84f2-f0e10d6ca7fb"],

Cell[BoxData[
 RowBox[{"ParametricPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"u", " ", 
      RowBox[{"Sin", "[", "u", "]"}]}], ",", 
     RowBox[{"u", " ", 
      RowBox[{"Cos", "[", "u", "]"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"u", ",", "0", ",", "100"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{
  3.7668306037656727`*^9, 3.7668318352077003`*^9, 3.766846251144213*^9, {
   3.766885303747058*^9, 3.7668853138291445`*^9}, 3.766909784069944*^9, 
   3.766913058956354*^9, {3.7669159728786373`*^9, 3.766915978870191*^9}, 
   3.7669162451292953`*^9, 3.766916279867776*^9, {3.7669164706250863`*^9, 
   3.766916472054832*^9}, 3.7669193177171187`*^9, 3.7669195916220784`*^9, {
   3.7669586031815248`*^9, 3.766958605690138*^9}, {3.7670878695232735`*^9, 
   3.7670878701129966`*^9}, 3.767087900486723*^9, {3.792533391973173*^9, 
   3.7925333960714827`*^9}},
 FontSize->14,ExpressionUUID->"3f410948-095f-48d0-a428-cd45d6666699"],

Cell[BoxData[
 RowBox[{"ParametricPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"u", " ", 
      RowBox[{"Sin", "[", "u", "]"}]}], ",", 
     RowBox[{"u", " ", 
      RowBox[{"Cos", "[", "u", "]"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"u", ",", "0", ",", "100"}], "}"}], ",", 
   RowBox[{"PlotPoints", "\[Rule]", "125"}], ",", 
   RowBox[{"Axes", "\[Rule]", "False"}], ",", 
   RowBox[{"MaxRecursion", "\[Rule]", "0"}], ",", 
   RowBox[{"ColorFunction", "\[Rule]", "\"\<Rainbow\>\""}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7668303148742924`*^9, 3.7668305846460724`*^9}, {
   3.766831007096444*^9, 3.766831012606428*^9}, {3.766831825947755*^9, 
   3.766831835327701*^9}, 3.766846251254163*^9, {3.766885303756033*^9, 
   3.7668853138391666`*^9}, 3.766909784079938*^9, 3.766913058966384*^9, {
   3.7669159728876157`*^9, 3.76691597887918*^9}, 3.766916246280216*^9, 
   3.766916281388708*^9, {3.766916470636057*^9, 3.7669164720677633`*^9}, 
   3.7669193177300463`*^9, 3.766919591637038*^9, {3.7669586031915197`*^9, 
   3.7669586057001333`*^9}, {3.7670878724017353`*^9, 
   3.7670879004967175`*^9}, {3.792533391982102*^9, 3.7925333960834513`*^9}},
 FontSize->14,ExpressionUUID->"cb010553-35ff-45b1-8dfd-f30553dbe67d"],

Cell[BoxData[
 RowBox[{"Plot3D", "[", 
  RowBox[{
   RowBox[{
    SuperscriptBox["x", "2"], "-", 
    SuperscriptBox["y", "2"]}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"y", ",", 
     RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
   RowBox[{"BoxRatios", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"1", ",", "1", ",", "1"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7668320133303804`*^9, 3.766832081519479*^9}, {
   3.766832125757814*^9, 3.7668321376749334`*^9}, 3.7668462512841625`*^9, {
   3.7668853037670035`*^9, 3.7668853138510857`*^9}, 3.7669097840899343`*^9, 
   3.7669130589763613`*^9, {3.766915972897585*^9, 3.766915978891123*^9}, 
   3.7669162472911434`*^9, 3.766916283097664*^9, {3.766916470646061*^9, 
   3.766916472076789*^9}, 3.766919317742015*^9, 3.7669195916516514`*^9, {
   3.7669586032014637`*^9, 3.766958605710148*^9}, {3.7670878743906717`*^9, 
   3.767087900506712*^9}, {3.7925333919950666`*^9, 3.7925333960954185`*^9}},
 FontSize->14,ExpressionUUID->"95ee59bc-cda4-41fc-80df-5e6dc02bfb3b"],

Cell[BoxData[
 RowBox[{"ParametricPlot3D", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Sin", "[", "t", "]"}], ",", 
     RowBox[{"Cos", "[", "t", "]"}], ",", "t"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "100"}], "}"}], ",", 
   RowBox[{"BoxRatios", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"1", ",", "1", ",", "1"}], "}"}]}], ",", 
   RowBox[{"ColorFunction", "\[Rule]", "\"\<Rainbow\>\""}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7668325144304447`*^9, 3.7668325381455665`*^9}, {
   3.7668326442770586`*^9, 3.766832729337371*^9}, {3.766832766263216*^9, 
   3.766832769973214*^9}, {3.7668328858556466`*^9, 3.766832895825636*^9}, {
   3.76683294035724*^9, 3.7668329507957897`*^9}, {3.7668342202015314`*^9, 
   3.766834235071542*^9}, 3.766846251474162*^9, {3.76688530377598*^9, 
   3.7668853138620567`*^9}, 3.766909784099929*^9, 3.7669130589863386`*^9, {
   3.7669159729055157`*^9, 3.766915978903129*^9}, 3.766916248970521*^9, 
   3.7669162857186775`*^9, {3.7669164706560493`*^9, 3.766916472088707*^9}, 
   3.7669193177539845`*^9, 3.7669195916666107`*^9, {3.766958603211458*^9, 
   3.766958605720123*^9}, {3.7670878771691885`*^9, 3.7670879005167065`*^9}, {
   3.792533392006038*^9, 3.7925333961074295`*^9}},
 FontSize->14,ExpressionUUID->"0850e0e4-dafe-4e45-93e9-5a6ca3ca8438"],

Cell[BoxData[
 RowBox[{"PolarPlot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Sin", "[", 
     RowBox[{"6", " ", "t"}], "]"}], "+", 
    RowBox[{"0.1", " ", 
     RowBox[{"RandomReal", "[", "]"}]}]}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", 
     RowBox[{"2", " ", "\[Pi]"}]}], "}"}], ",", 
   RowBox[{"ColorFunction", "\[Rule]", "Hue"}], ",", 
   RowBox[{"Axes", "\[Rule]", "False"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.766833557458627*^9, 3.766833604608931*^9}, 
   3.7668336354589415`*^9, {3.7668338590816264`*^9, 3.766834077503192*^9}, {
   3.7668341471944723`*^9, 3.7668342097499466`*^9}, 3.766834255424782*^9, {
   3.7668343189100227`*^9, 3.766834322040243*^9}, {3.7668355491093054`*^9, 
   3.7668355639092627`*^9}, {3.766842035209441*^9, 3.7668420476400557`*^9}, 
   3.766846251764162*^9, {3.766885303796924*^9, 3.766885313883998*^9}, 
   3.766909784119917*^9, 3.766913059006327*^9, {3.7669159729154887`*^9, 
   3.7669159789140596`*^9}, 3.7669162503101883`*^9, 3.7669162886684494`*^9, {
   3.7669164706680136`*^9, 3.7669164720976844`*^9}, 3.7669193177659817`*^9, 
   3.7669195916806283`*^9, {3.7669586032214527`*^9, 3.7669586057301617`*^9}, {
   3.767087878978222*^9, 3.767087900526702*^9}, {3.792533392015048*^9, 
   3.7925333961183577`*^9}},
 FontSize->14,ExpressionUUID->"b6f99f22-0010-4e32-976e-6e7db4d42449"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"f", "=", 
   RowBox[{"Sin", "[", 
    RowBox[{"Range", "[", 
     RowBox[{"0", ",", 
      RowBox[{"12", " ", "\[Pi]"}], ",", "0.1"}], "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{"ListPolarPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"f", ",", 
     RowBox[{"0.8", " ", "f"}], ",", 
     RowBox[{"0.6", " ", "f"}], ",", 
     RowBox[{"0.4", " ", "f"}]}], "}"}], ",", 
   RowBox[{"Joined", "\[Rule]", "True"}], ",", 
   RowBox[{"Axes", "\[Rule]", "False"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Purple", ",", "Red", ",", "Orange", ",", "Yellow"}], "}"}]}]}], 
  "]"}]}], "Input",
 CellChangeTimes->{{3.7668391383815556`*^9, 3.76683919823304*^9}, {
   3.766839278650097*^9, 3.766839300495036*^9}, {3.7668393761229415`*^9, 
   3.7668394779730587`*^9}, {3.7668396293138113`*^9, 3.7668396718775625`*^9}, 
   3.766846252024163*^9, {3.7668853038088927`*^9, 3.7668853138949685`*^9}, 
   3.766909784129912*^9, 3.7669130590163736`*^9, {3.766915972924514*^9, 
   3.766915978923086*^9}, 3.7669162527040567`*^9, 3.766916293549012*^9, {
   3.7669164706789417`*^9, 3.7669164721096845`*^9}, 3.7669193177789154`*^9, 
   3.7669195916915455`*^9, {3.7669586032314463`*^9, 3.7669586057401114`*^9}, {
   3.767087883695701*^9, 3.7670879005366955`*^9}, {3.7925333920270095`*^9, 
   3.7925333961293287`*^9}},
 FontSize->14,ExpressionUUID->"de0bb85b-15c8-4f73-ae5b-9a23f0983628"],

Cell[BoxData[
 RowBox[{"ListPointPlot3D", "[", 
  RowBox[{
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"r", " ", 
        RowBox[{"Cos", "[", "t", "]"}]}], ",", 
       RowBox[{"r", " ", 
        RowBox[{"Sin", "[", "t", "]"}]}], ",", 
       RowBox[{"Sinc", "[", "r", "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"r", ",", "0", ",", 
       RowBox[{"3", " ", "\[Pi]"}], ",", "0.1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", 
       RowBox[{"2", " ", "\[Pi]"}], ",", "0.1"}], "}"}]}], "]"}], ",", 
   RowBox[{"Boxed", "\[Rule]", "False"}], ",", 
   RowBox[{"Axes", "\[Rule]", "False"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7668409132400465`*^9, 3.766841139692524*^9}, {
   3.766841174197867*^9, 3.766841175492379*^9}, {3.766841483602018*^9, 
   3.7668414885109997`*^9}, 3.7668462520941973`*^9, {3.7668853038188653`*^9, 
   3.7668853139079337`*^9}, 3.7668856077938457`*^9, {3.7668856490836277`*^9, 
   3.7668856636641607`*^9}, 3.766909784139907*^9, 3.7669130590263796`*^9, {
   3.766915972933489*^9, 3.766915978933058*^9}, 3.766916254709138*^9, 
   3.7669162951082616`*^9, {3.7669164706899557`*^9, 3.766916472124733*^9}, 
   3.7669193177908835`*^9, 3.7669195917065487`*^9, {3.7669586032414417`*^9, 
   3.7669586057501063`*^9}, {3.767087885424777*^9, 3.7670879005566854`*^9}, {
   3.7925333920380225`*^9, 3.792533396140298*^9}},
 FontSize->14,ExpressionUUID->"f1e971c6-bbb0-497a-81d3-0a3b8ed1c171"],

Cell[BoxData[
 RowBox[{"Graphics", "[", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Hue", "[", 
       FractionBox["t", "25"], "]"}], ",", 
      RowBox[{"Circle", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Cos", "[", 
          FractionBox[
           RowBox[{"2", " ", "\[Pi]", " ", "t"}], "25"], "]"}], ",", 
         RowBox[{"Sin", "[", 
          FractionBox[
           RowBox[{"2", " ", "\[Pi]", " ", "t"}], "25"], "]"}]}], "}"}], 
       "]"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"t", ",", "25"}], "}"}]}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.766841680743528*^9, 3.766841820646964*^9}, {
   3.76684186215833*^9, 3.7668418849109697`*^9}, 3.7668462524941616`*^9, {
   3.76688530415524*^9, 3.766885313918905*^9}, 3.7669097841799183`*^9, 
   3.7669130590363116`*^9, {3.7669159729434137`*^9, 3.7669159789450254`*^9}, 
   3.766916255793231*^9, 3.7669162971093607`*^9, {3.766916470702879*^9, 
   3.7669164721386952`*^9}, 3.766919317804887*^9, 3.7669195917609105`*^9, {
   3.7669586035812607`*^9, 3.766958605770094*^9}, {3.767087887303772*^9, 
   3.767087900986493*^9}, {3.792533392047018*^9, 3.792533396153264*^9}},
 FontSize->14,ExpressionUUID->"5b58f554-7b18-49a2-8f64-4fabc64759cd"],

Cell[BoxData[
 RowBox[{"Graphics3D", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"Red", ",", 
     RowBox[{"Ball", "[", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0", ",", "2"}], "}"}], "]"}], ",", "Blue", ",", 
     RowBox[{"Cuboid", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1"}], ",", 
         RowBox[{"-", "1"}], ",", 
         RowBox[{"-", "1"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "1", ",", "1"}], "}"}]}], "]"}]}], "}"}], ",", 
   RowBox[{"Boxed", "\[Rule]", "False"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.766843124541251*^9, 3.7668431441878653`*^9}, {
   3.7668431756584673`*^9, 3.76684319429889*^9}, {3.766843235812005*^9, 
   3.766843266424703*^9}, {3.766843314237565*^9, 3.766843335286891*^9}, {
   3.766843372911317*^9, 3.766843406846814*^9}, {3.766843444689139*^9, 
   3.7668434648612742`*^9}, {3.7668435134786267`*^9, 3.766843625178641*^9}, {
   3.7668436570890017`*^9, 3.7668436649619603`*^9}, {3.7668437276072755`*^9, 
   3.7668437620186944`*^9}, 3.766846252524229*^9, {3.766885304164216*^9, 
   3.7668853139299097`*^9}, 3.7669097841899323`*^9, 3.766913059046356*^9, {
   3.7669159729523907`*^9, 3.7669159789550004`*^9}, 3.7669162577111797`*^9, 
   3.766916299740083*^9, {3.766916470712899*^9, 3.7669164721516604`*^9}, 
   3.7669193178188086`*^9, 3.766919591770932*^9, {3.7669586036012526`*^9, 
   3.766958605780145*^9}, {3.7670878893926563`*^9, 3.767087900996487*^9}, {
   3.7925333920579386`*^9, 3.792533396166229*^9}},
 FontSize->14,ExpressionUUID->"f7988c1a-9169-4b9e-a60b-8e0345d706ab"],

Cell[BoxData[
 RowBox[{"Animate", "[", 
  RowBox[{
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"Evaluate", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Sin", "[", "x", "]"}], ",", 
        RowBox[{"Normal", "[", 
         RowBox[{"Series", "[", 
          RowBox[{
           RowBox[{"Sin", "[", "x", "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"x", ",", "0", ",", "n"}], "}"}]}], "]"}], "]"}]}], "}"}],
       "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", "5"}], ",", 
     RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
     RowBox[{"PlotLegends", "\[Rule]", "\"\<Expressions\>\""}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"n", ",", "1", ",", "10", ",", "2"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.766757355747425*^9, 3.7667575205641537`*^9}, {
   3.7667575547679634`*^9, 3.7667576008169565`*^9}, {3.7667576345689435`*^9, 
   3.7667576359163256`*^9}, {3.7667576716604776`*^9, 3.7667576924224477`*^9}, 
   3.7667585732148404`*^9, {3.7667605709782343`*^9, 3.7667605843946915`*^9}, {
   3.766812973691105*^9, 3.766812996142477*^9}, 3.7668130787714996`*^9, {
   3.766813197123207*^9, 3.766813213451268*^9}, {3.766814134916545*^9, 
   3.766814238607199*^9}, {3.7668144379319797`*^9, 3.766814452420635*^9}, {
   3.766815760907033*^9, 3.7668157757125025`*^9}, 3.766815880517064*^9, 
   3.7668161041777334`*^9, {3.76681636734615*^9, 3.766816397784711*^9}, {
   3.766817707506343*^9, 3.7668177375902495`*^9}, 3.766818061497053*^9, 
   3.7668181450434933`*^9, {3.7668187614508467`*^9, 3.7668187635097475`*^9}, 
   3.7668232961603284`*^9, {3.7668273109901285`*^9, 3.7668273504705153`*^9}, {
   3.766827574290023*^9, 3.7668275819000607`*^9}, {3.766827630490055*^9, 
   3.7668276320900693`*^9}, 3.7668278044231105`*^9, 3.7668318349477015`*^9, 
   3.766846249994212*^9, {3.766885304173192*^9, 3.766885313941843*^9}, 
   3.7669097841999245`*^9, 3.7669130590563*^9, {3.766915972962408*^9, 
   3.7669159789659705`*^9}, {3.7669164707238708`*^9, 3.7669164721666565`*^9}, 
   3.7669193178317747`*^9, 3.7669195917848454`*^9, {3.766958603611245*^9, 
   3.766958605790086*^9}, 3.767087901006445*^9, {3.792533392068909*^9, 
   3.7925333961802425`*^9}},
 FontSize->14,
 CellLabel->"In[36]:=",ExpressionUUID->"249e93fe-c418-478a-8451-1de9d3eb5fed"],

Cell[BoxData[
 RowBox[{"Animate", "[", 
  RowBox[{
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox["x", "n"], "&"}], ")"}], "[", 
      RowBox[{"x", ",", "n"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", "10"}], ",", 
     RowBox[{"AspectRatio", "\[Rule]", "1"}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"n", ",", 
     RowBox[{"-", "5"}], ",", "5", ",", "0.1"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7668112194053755`*^9, 3.7668112498330708`*^9}, {
   3.7668113866628666`*^9, 3.766811490663503*^9}, {3.766811592326499*^9, 
   3.766811646201651*^9}, {3.7668119569570904`*^9, 3.766812013524006*^9}, {
   3.766812187321455*^9, 3.766812187961432*^9}, {3.766812253276554*^9, 
   3.766812319291787*^9}, {3.766812398613001*^9, 3.7668123994833965`*^9}, {
   3.766812438229686*^9, 3.766812442982763*^9}, {3.7668125172380276`*^9, 
   3.766812546272068*^9}, 3.766813081303795*^9, {3.7668135280750093`*^9, 
   3.766813546852648*^9}, {3.7668136972239313`*^9, 3.7668137476908674`*^9}, {
   3.7668144613310533`*^9, 3.7668145029554834`*^9}, {3.766817825873246*^9, 
   3.7668178455424843`*^9}, 3.766818061666964*^9, 3.7668181459729958`*^9, {
   3.7668189112989273`*^9, 3.766818948798873*^9}, 3.766823297020328*^9, {
   3.766827027370195*^9, 3.7668270349004426`*^9}, {3.766827235900139*^9, 
   3.7668272399701014`*^9}, 3.766827292540091*^9, {3.7668276921900415`*^9, 
   3.7668276978001833`*^9}, 3.7668277565930967`*^9, 3.76682780446311*^9, {
   3.7668314087360325`*^9, 3.7668314107660255`*^9}, {3.7668314674332867`*^9, 
   3.7668315529264297`*^9}, 3.76683183508771*^9, 3.766846251004198*^9, {
   3.7668853041821675`*^9, 3.766885313952848*^9}, {3.766885763913074*^9, 
   3.76688578379286*^9}, 3.7669097841999245`*^9, 3.766913059066304*^9, {
   3.76691597297237*^9, 3.766915978976016*^9}, {3.7669164707347927`*^9, 
   3.7669164721776285`*^9}, 3.7669193178447437`*^9, 3.7669195917988577`*^9, {
   3.766958603631235*^9, 3.766958605790086*^9}, 3.7670879010164742`*^9, {
   3.792533392082873*^9, 3.7925333961922092`*^9}},
 FontSize->14,
 CellLabel->"In[37]:=",ExpressionUUID->"66668f25-4ecf-4972-ad14-6d39737d574c"],

Cell[BoxData[
 RowBox[{"Animate", "[", 
  RowBox[{
   RowBox[{"Plot3D", "[", 
    RowBox[{
     RowBox[{"Sin", "[", 
      RowBox[{
       SqrtBox[
        RowBox[{
         SuperscriptBox["x", "2"], "+", 
         SuperscriptBox["y", "2"]}]], "+", 
       RowBox[{"2", " ", "\[Pi]", " ", "t"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{
        RowBox[{"-", "8"}], " ", "\[Pi]"}], ",", 
       RowBox[{"8", " ", "\[Pi]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"y", ",", 
       RowBox[{
        RowBox[{"-", "8"}], " ", "\[Pi]"}], ",", 
       RowBox[{"8", " ", "\[Pi]"}]}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", "10"}], ",", 
     RowBox[{"PlotPoints", "\[Rule]", "50"}], ",", 
     RowBox[{"AspectRatio", "\[Rule]", "1"}], ",", 
     RowBox[{"Boxed", "\[Rule]", "False"}], ",", 
     RowBox[{"Mesh", "\[Rule]", "None"}], ",", 
     RowBox[{"Axes", "\[Rule]", "False"}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", "2"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7668447362230854`*^9, 3.7668448594129925`*^9}, {
   3.766844892652972*^9, 3.766845018683151*^9}, {3.7668450554328604`*^9, 
   3.7668450875528336`*^9}, 3.766845741496265*^9, 3.7668462525542088`*^9, {
   3.7668853041921415`*^9, 3.7668853139657793`*^9}, 3.766909784219898*^9, 
   3.7669130590763445`*^9, {3.7669159729833407`*^9, 3.7669159789889927`*^9}, {
   3.766916470745812*^9, 3.766916472192552*^9}, 3.7669193178567095`*^9, 
   3.7669195918087816`*^9, {3.7669586036412287`*^9, 3.7669586058100743`*^9}, 
   3.767087901026434*^9, {3.792533392098864*^9, 3.7925333962081175`*^9}},
 FontSize->14,
 CellLabel->"In[38]:=",ExpressionUUID->"3fff1b87-adc7-4b9a-bf98-f6cc05d754da"],

Cell[BoxData[
 RowBox[{"RegionPlot3D", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      SuperscriptBox["x", "2"], "+", 
      SuperscriptBox["z", "2"]}], "\[LessEqual]", "1"}], "&&", 
    RowBox[{
     RowBox[{
      SuperscriptBox["y", "2"], "+", 
      SuperscriptBox["z", "2"]}], "\[LessEqual]", "1"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"y", ",", 
     RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"z", ",", 
     RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
   RowBox[{"PlotPoints", "\[Rule]", "40"}], ",", 
   RowBox[{"Mesh", "\[Rule]", "None"}], ",", 
   RowBox[{"Boxed", "\[Rule]", "False"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7669124478027153`*^9, 3.766912546709942*^9}, {
   3.766912619880869*^9, 3.76691269394128*^9}, {3.7669127326006746`*^9, 
   3.766912857404271*^9}, {3.76691290644785*^9, 3.766912996559676*^9}, 
   3.7669130590862846`*^9, {3.766915972995326*^9, 3.7669159790019526`*^9}, 
   3.766916261792781*^9, 3.76691630250986*^9, 3.7669163407293615`*^9, {
   3.766916470757765*^9, 3.7669164722095394`*^9}, 3.7669193178697147`*^9, 
   3.7669195918227873`*^9, {3.7669586036512213`*^9, 3.766958605820103*^9}, {
   3.7670878930706897`*^9, 3.7670879010364285`*^9}, {3.792533392112792*^9, 
   3.7925333962190886`*^9}},
 FontSize->14,ExpressionUUID->"372efe14-cdb4-4812-a3ae-3b004d0130db"],

Cell[BoxData[
 RowBox[{"MandelbrotSetPlot", "[", "]"}]], "Input",
 CellChangeTimes->{{3.7668234459550915`*^9, 3.766823468655443*^9}, {
   3.766823566285098*^9, 3.7668235697251453`*^9}, 3.766827804563102*^9, 
   3.7668318353577337`*^9, 3.7668462527442017`*^9, {3.7668853042011166`*^9, 
   3.7668853139797425`*^9}, 3.7669097842298574`*^9, 3.7669130590962877`*^9, {
   3.7669159730062923`*^9, 3.7669159790119176`*^9}, {3.766916307620079*^9, 
   3.7669163092888203`*^9}, 3.7669163419790363`*^9, {3.7669164707697296`*^9, 
   3.7669164722242155`*^9}, 3.7669193178806915`*^9, 3.7669195918357525`*^9, {
   3.766958603661267*^9, 3.7669586058300653`*^9}, {3.767087896239007*^9, 
   3.767087901046423*^9}, {3.7925333921267543`*^9, 3.7925333962310553`*^9}},
 FontSize->14,ExpressionUUID->"535b6677-5656-4161-b01f-4f94ae1ba990"]
},
WindowSize->{1536, 781},
WindowMargins->{{-8, Automatic}, {Automatic, -8}},
FrontEndVersion->"11.3 for Microsoft Windows (64-bit) (2018\:5e743\:670828\
\:65e5)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 2296, 43, 71, "Input",ExpressionUUID->"9d3a28f8-1b97-46eb-a649-bba28d6cfa7b"],
Cell[2857, 65, 810, 20, 55, "Input",ExpressionUUID->"7c26c8e4-7440-44fb-8732-3d03f5b89aca"],
Cell[3670, 87, 2210, 39, 61, "Input",ExpressionUUID->"77c851dc-4457-4cc7-bb20-3a01adbfeead"],
Cell[5883, 128, 1960, 38, 73, "Input",ExpressionUUID->"7bb1964a-ea36-4190-9c9c-66631e0a8553"],
Cell[7846, 168, 1945, 34, 72, "Input",ExpressionUUID->"4ab6b38b-81c7-4dfe-ae4c-2a1d31da7929"],
Cell[9794, 204, 3161, 63, 89, "Input",ExpressionUUID->"2e0561fe-3a8c-417a-84f2-f0e10d6ca7fb"],
Cell[12958, 269, 961, 20, 48, "Input",ExpressionUUID->"3f410948-095f-48d0-a428-cd45d6666699"],
Cell[13922, 291, 1246, 24, 48, "Input",ExpressionUUID->"cb010553-35ff-45b1-8dfd-f30553dbe67d"],
Cell[15171, 317, 1103, 23, 53, "Input",ExpressionUUID->"95ee59bc-cda4-41fc-80df-5e6dc02bfb3b"],
Cell[16277, 342, 1319, 24, 48, "Input",ExpressionUUID->"0850e0e4-dafe-4e45-93e9-5a6ca3ca8438"],
Cell[17599, 368, 1341, 25, 48, "Input",ExpressionUUID->"b6f99f22-0010-4e32-976e-6e7db4d42449"],
Cell[18943, 395, 1429, 30, 89, "Input",ExpressionUUID->"de0bb85b-15c8-4f73-ae5b-9a23f0983628"],
Cell[20375, 427, 1481, 30, 48, "Input",ExpressionUUID->"f1e971c6-bbb0-497a-81d3-0a3b8ed1c171"],
Cell[21859, 459, 1267, 28, 72, "Input",ExpressionUUID->"5b58f554-7b18-49a2-8f64-4fabc64759cd"],
Cell[23129, 489, 1586, 31, 48, "Input",ExpressionUUID->"f7988c1a-9169-4b9e-a60b-8e0345d706ab"],
Cell[24718, 522, 2375, 45, 48, "Input",ExpressionUUID->"249e93fe-c418-478a-8451-1de9d3eb5fed"],
Cell[27096, 569, 2275, 41, 48, "Input",ExpressionUUID->"66668f25-4ecf-4972-ad14-6d39737d574c"],
Cell[29374, 612, 1719, 39, 105, "Input",ExpressionUUID->"3fff1b87-adc7-4b9a-bf98-f6cc05d754da"],
Cell[31096, 653, 1442, 33, 53, "Input",ExpressionUUID->"372efe14-cdb4-4812-a3ae-3b004d0130db"],
Cell[32541, 688, 815, 11, 48, "Input",ExpressionUUID->"535b6677-5656-4161-b01f-4f94ae1ba990"]
}
]
*)

